home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #4 / Amiga Plus Extra 1997 #4.iso / pd / grafik / video easel / camrexx / diffusion.rexx < prev    next >
OS/2 REXX Batch file  |  1997-06-09  |  370b  |  19 lines
  1. /* Diffusion by an idea of Toffoli, in CAMRexx by THOR */
  2.  
  3. MakeAlgorithm:
  4.    PLANEALGORITHM margolus hvphases
  5. return
  6.  
  7. MakePlane:
  8.    if plane=0 then; do
  9.       rand=(center_ ^ cw_ ^ ccw_ ^ opp_)
  10.       if rand then      SETPLANE cw
  11.       else              SETPLANE ccw
  12.    end
  13.    if plane=1 then; do
  14.       new=(center_ & cw_) ^ opp_ ^ ccw_
  15.       SETPLANE new
  16.    end
  17. return
  18.  
  19.